﻿Imports Feed
Imports System
Imports System.IO
Imports System.Net
Imports System.Windows.Forms
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Navigation
Partial Public Class WebViewPage
    Dim WBVar As Forms.WebBrowser
    Public Sub NavToURL(ByVal URL As String)
        '    WBVar.NavigateToURL(URL)
        '    URLBox.Text = URL
    End Sub
    'Private Sub NavButtonThingy_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles NavButtonThingy.Click
    '    WBVar.NavigateToURL(URLBox.Text)
    'End Sub
    'Public WriteOnly Property BrowserVisibility() As Boolean
    '    Set(ByVal value As Boolean)
    '        CType(BrowserHost.Child, Web.Browser).Visible = value
    '    End Set
    'End Property
    'Public Sub New()
    '    MyBase.New()
    '    Me.InitializeComponent()
    '    WBVar = CType(BrowserHost.Child, Web.Browser)
    '    URLBox.Text = Nothing
    '    AddHandler WBVar.StatusTextChanged, AddressOf StatusTextChanged
    '    AddHandler WBVar.BrowserDocCompleted, AddressOf BDocComplete
    '    AddHandler WBVar.BrowserDocTitleChanged, AddressOf BDocTitleChanged
    '    AddHandler WBVar.BrowserNavigating, AddressOf BNav
    'End Sub
    'Private Sub BNav(ByVal Sender As Object, ByVal E As System.Windows.Forms.WebBrowserNavigatingEventArgs)

    'End Sub
    'Private Sub StatusTextChanged(ByVal Text As String)
    '    Global1.CommRoute.ExecuteCommand("ChangeStatusText", Text)
    'End Sub
    'Private Sub BDocComplete(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    '    Me.URLBox.Text = e.Url.ToString
    'End Sub
    'Private Sub BDocTitleChanged(ByVal NewTitle As String)
    '    Global1.CommRoute.ExecuteCommand("ChangeTitle", NewTitle)
    'End Sub
    'Private Sub Back_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Back.Click
    '    WBVar.Back()
    'End Sub
    'Private Sub Forward_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Forward.Click
    '    WBVar.Forward()
    'End Sub
    'Private Sub Stop_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles [Stop].Click
    '    WBVar.StopLoading()
    'End Sub
    'Private Sub Stop_Copy_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Stop_Copy.Click
    '    WBVar.Refresh()
    'End Sub
    'Private Sub URLBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles URLBox.KeyUp
    '    If e.Key = Input.Key.Enter Then
    '        WBVar.NavigateToURL(URLBox.Text)
    '    End If
    'End Sub
End Class
